home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
science
/
sm32a.zip
/
LIBRARY
/
PLOT2EQ.LI
< prev
next >
Wrap
Text File
|
1994-07-22
|
352b
|
9 lines
# library plot2eq
# plot2eq(eq,eq2,x,y) plots 2 equations of eq and eq2
# the cross of 2 curves is a solution of a system of eqs
# e.g. plot2eq(x*y+y^2=1, x+y=4, x,y)
plot2eq(eq_,eq2_,x_,y_,xmin_,xmax_) := plot2y(member(right(solve(eq,y)),1),
member(right(solve(eq2,y)),1),x,xmin,xmax)
plot2eq(eq_,eq2_,x_,y_) := plot2eq(eq,eq2,x,y,-5,5)